5 IFSW=1GOTO15
10 SW=1:LOAD"E/F 4TH SM",8,1
15 L=2:H=157:POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
20 PRINT"[147]":POKE53280,13:POKE53281,1:POKE53272,23:GOTO1750
100 POKE646,6:POKE53272,21:S=17:T=TI:ZZ=FRE(0):SYS598
1200 T$="[145]'THY ":GOSUB1640:T$="FA":GOSUB1650:T$="THER ":GOSUB1650
1210 T$="AND ":GOSUB1640:T$="MO":GOSUB1650:T$="THER ":GOSUB1650
1220 T$="HO":GOSUB1640:T$="NOR ":GOSUB1640:T$="WELL.'":GOSUB1600:PRINT
1230 T$=" THE ":GOSUB1640:T$="FOURTH ":GOSUB1650
1240 T$="COM":GOSUB1650:T$="MAND":GOSUB1640:T$="MENT ":GOSUB1640
1250 T$="IS ":GOSUB1640:T$="FOR ":GOSUB1640:T$="ALL:":GOSUB1600:PRINT
1260 T$=" FOR ":GOSUB1640:T$="CHIL":GOSUB1650
1270 T$="DREN ":GOSUB1650:T$="AND ":GOSUB1640:T$="FOR ":GOSUB1650
1280 T$="THE ":GOSUB1650:T$="GROWN-":GOSUB1640:T$="UPS ":GOSUB1640
1290 T$="TOO. ":GOSUB1660:T$=" ALL ":GOSUB1640
1300 T$="MUST ":GOSUB1650:T$="O":GOSUB1650:T$="BEY ":GOSUB1640
1305 T$="THIS ":GOSUB1640:T$="LAW ":GOSUB1640:T$="OF ":GOSUB1640
1310 T$="GOD. ":GOSUB1600:PRINT:T$=" BY ":GOSUB1640:T$="O":GOSUB1650
1315 T$="BE":GOSUB1650:T$="DI":GOSUB1640:T$="ENCE ":GOSUB1640
1320 T$="WE ":GOSUB1640:T$="SHOW ":GOSUB1650:T$="RES":GOSUB1650
1325 T$="PECT,":GOSUB1600:PRINT:T$=" AND ":GOSUB1640:T$="BY ":GOSUB1650
1330 T$="OUR ":GOSUB1650:T$="CARE ":GOSUB1640:T$="OUR ":GOSUB1640
1335 T$="GRA":GOSUB1640:T$="TI":GOSUB1640:T$="TUDE":GOSUB1600:PRINT
1340 T$=" FOR ":GOSUB1640:T$="ALL ":GOSUB1650:T$="THE ":GOSUB1650
1345 T$="LOVE ":GOSUB1640:T$="THEY ":GOSUB1650:T$="HAVE ":GOSUB1650:
1350 T$="SHOWN ":GOSUB1640:T$="TO ":GOSUB1640:T$="US ":GOSUB1600:PRINT
1355 T$=" SINCE ":GOSUB1640:T$="WE ":GOSUB1650:T$="WERE ":GOSUB1650
1360 T$="IN":GOSUB1640:T$="FANTS ":GOSUB1640:T$="IN ":GOSUB1640
1365 T$="THEIR ":GOSUB1640:T$="ARMS.":GOSUB1600:PRINT:T$=" AF":GOSUB1640
1370 T$="TER ":GOSUB1640:T$="GOD ":GOSUB1600:T$="WE ":GOSUB1640
1375 T$="OWE ":GOSUB1640:T$="THEM ":GOSUB1600:T$="LOVE ":GOSUB1640
1380 T$="AND ":GOSUB1640:T$="VEN":GOSUB1640:T$="ER":GOSUB1640
1385 T$="A-":GOSUB1600:T$="TION,":PRINT:GOSUB1660:T$=" SINCE ":GOSUB1640:
1390 T$="WE ":GOSUB1640:T$="OWE ":GOSUB1640:T$="TO ":GOSUB1640
1395 T$="THEM ":GOSUB1640:T$="OUR ":GOSUB1640:T$="LIFE ":GOSUB1600
1400 T$="AND ":GOSUB1670:T$="ITS ":GOSUB1640:T$="SUP":GOSUB1640
1405 T$="PORT.":GOSUB1590:PRINT:T$=" GOD ":GOSUB1640
1410 T$="HIM":GOSUB1640:T$="SELF ":GOSUB1640:T$="HAS ":GOSUB1640
1415 T$="CHARGED ":GOSUB1640:T$="THEM ":GOSUB1640:T$="WITH ":GOSUB1600
1420 T$="                     OUR ":GOSUB1600:T$="ED":GOSUB1640:T$="U":GOSUB1640
1425 T$="CA":GOSUB1600:T$="TION.":GOSUB1600:PRINT:T$=" LET ":GOSUB1640
1430 T$="US ":GOSUB1640:T$="AP":GOSUB1600:T$="PRE":GOSUB1640
1435 T$="CI":GOSUB1640:T$="ATE ":GOSUB1600:T$="ALL ":GOSUB1640
1440 T$="THAT ":GOSUB1640:T$="THEY ":GOSUB1640
1445 T$="HAVE ":GOSUB1640:T$="DONE.":GOSUB1680
1450 FORAA=1TO5000:NEXT:GOTO1900
1590 T=T+8*S:PRINTT$;
1592 IFT>TITHEN1592
1595 RETURN
1600 T=T+4*S:PRINTT$;
1602 IFT>TITHEN1602
1605 RETURN
1640 T=T+2*S:PRINTT$;
1642 IFT>TITHEN1642
1645 RETURN
1650 T=T+S:PRINTT$;
1652 IFT>TITHEN1652
1655 RETURN
1660 T=T+4*S:PRINTSPC(30)T$
1662 IFT>TITHEN1662
1665 RETURN
1670 T=T+4*S:PRINTSPC(20)T$;
1672 IFT>TITHEN1672
1675 RETURN
1680 T=T+8*S:PRINTSPC(33)T$;
1682 RETURN
1750 POKE646,6:PRINT"[147]":PRINTTAB(9)"[212][200][197][160][198][207][213][210][212][200][160][195][207][205][205][193][206][196][205][197][206][212]
1760 [153][163]17)"+ + +
1765 PRINT"[212]EXT & [205]USIC [195]OMPOSED AND [208]ROGRAMMED
1770 [153][163]12)"BY (null)ELIGIOUS OF
1775 PRINTTAB(5)"[212]HE [207]RDER OF THE [205]OTHER OF [199]OD
1780 [153][163]11)"((null)RDO STR$EI (null)ATRIS)
1785 PRINTTAB(11)"[205]USIC BY MEANS OF:
1790 [153]"(null)USIC ATNSSEMBLER 64(LEN)(null)ICK (null)ULLIVAN
1795 PRINT"2011 [194]RIMLEY [210]D., [193]GINCOURT, [207]NT.":FORAA=1TO1000:NEXT
1798 POKE646,11:PRINTTAB(7)"[208]RESS [211]PACE [194]AR TO [195]ONTINUE
1800 [161]A$:[139]A$[178]""[167]1800
1810 [139]A$[178][199](32)[167][153]"LOAD":[129]AA[178]1[164]1500:[130]:[137]2100
1820 [139]A$[179][177][199](32)[167]1800
1900 [153]"LOAD":[153][163]10)"TO REPEAT - PRESS R
1905 PRINTTAB(8)"FOR MUSIC MENU - PRESS M
1910 [153][163]11)"TO QUIT - PRESS Q":[151]198,0
2020 [161]A$:[139]A$[178]""[167]2020
2030 [139]A$[178]"Q"[167][128]
2035 [139]A$[178]"R"[167]20
2040 [139]A$[178]"M"[167][153]"LOAD";:[137]2230
2050 [139]A$[179][177]"Q"[176]A$[179][177]"M"[176]A$[179][177]"R"[167]2020
2100 [153]"LOAD";:[151]53272,21:[151]53280,1:[151]53281,1:[151]646,5
2105 [153]"'THY FATHER AND MOTHER HONOR WELL.':
2110 PRINT"THE FOURTH COMMANDMENT IS FOR ALL:
2120 [153]"FOR CHILDREN AND FOR THE GROWN-UPS":[153][163]26)"TOO.
2130 PRINT"ALL MUST OBEY THIS LAW OF GOD.
2140 [153]"BY OBEDIENCE WE SHOW RESPECT,
2150 PRINT"AND BY OUR CARE OUR GRATITUDE
2160 [153]"FOR ALL THE LOVE THEY HAVE SHOWN TO US"
2170 [153]"SINCE WE WERE INFANTS IN THEIR ARMS.
2180 PRINT"AFTER GOD WE OWE THEM LOVE AND VENERA-":PRINTTAB(30)"TION,
2190 [153]"SINCE WE OWE TO THEM OUR LIFE":[153][163]11)"AND ITS SUPPORT.
2200 PRINT"GOD HIMSELF HAS CHARGED THEM WITH":PRINTTAB(16)"OUR EDUCATION;
2210 [153]"LET US APPRECIATE ALL THAT THEY HAVE":[153][163]31)"DONE.
2220 FORAA=1TO3000:NEXT:GOTO100
2230 POKE646,1:PRINT"LOAD"CHR$(34)"MUSIC MENU"CHR$(34)",8
2240 [153]"RUN":[151]198,3:[151]631,19:[151]632,13:[151]633,13